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al SMUG BYTES 

N Volume 8, Number 12 

N December 1991 

* 

* Subscriptions = $10.00 per year 
* or free with swap. Send to: 
* 

* SINCLAIR MILWAUKEE USERS GROUP 
* P.O. Box 101, Butler WI 353007 

* 
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* THIS MONTH 

* 

x - Label Program 

L 

= - Meeting Notes 

x 

E - Special Meeting Notice 

x 

$ - Presidents Program 

* 

5 - And Other Great Things 

x 

x If any articles are copied 

* Please credit SMUG BYTES 

* and the author. 

Kad ae ea a ek aaa dea nuota 
* NEXT MEETING DATE: 02/05/92 

* SEE YOU THERE 

T re es se a i i i a es Sik Se a SS Sa A ads spe ee 
* Send all contributions by the 
* 3rd Wednesday of the month to: 
* 

* Bill Heberlein 

hi Editor 

x SMUG BYTES 

* 5052 N. 91st Street 

N Milwaukee WI 53225-4129 

* 
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MEMBERS 
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* - 527 2191 

*V. Pres. - Neal Schultz 
* - 353 4522 
*Secretary — Bud Dankert 
* - 251 4464 
*Treasurer - R. Cultice 

* - 542 3591 
*Education - R. Cultice 

k - 542 3591 


L 


* — Librarians 
*Tape/Disk -E. Pawlowski 
k 1 - 338 0260 

*Book - D. Nickel 

* 1 - 284 9691 


L 


* - Sub Group Leaders 


ig 62% - R. Cultice 

*Meeting - Suspended 

N - 542 3591 

*Games - N. Schultz 

*Meeting 3rd Saturday of the. month 
* - 353 4522 

*Hardware - G. Kraemer 
*Meet-no set date. Call for info. 
* - 421 0179 

*QL - R. Hilsmann 
*Meeting 3rd Wednesday of month 

x - 251 5291 

*Spectrum - R. Hilsmann 


*Meeting 3rd Wednesday of month 


x = 205.029) 
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1991 OFFICERS 
& WORKING 


All Area Codes Are 414 
*President - Bill Heberlein 
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NOTE NEITHER ANY AUTHOR OR SMUG BYTES TAKES ANY RESPONSIBILITY 
FOR ANY HARDWARE MODIFICATIONS TO YOUR EQUIPMENT. 


Label Program 


This program was written to print two THEN GO TO 250 

labels and save the label and write a 260 IF inky$=='y' THEN GO TO 280 
backup file. I used this program at 270 GO TO 320 

the expo held in Milwaukee in June of 280 open_fle_new 


1990. Use it if you like. 290 PRINT #7, ‘FIRST Record' 
300 PRINT #7,' 
100 TK2_EXT 310 CLOSE #7 
105 m=1 320 CLS #14 
110 inky$='' 330 open_disk_update 
120 REMark Label Print Program 340 find_last_entry 
130 open_windows 350 PRINT #14, 'DO YOU WANT TO PRINT 
140 CLS #11 EXISTING FILE?' 
150 yn$ = ' ' 360 PRINT #14, 'Y FOR YES ANYTHING ELSE 
160 INKEY$=CODE(224) NO' 
170 window_11 370 inky$=INKEY$(@): IF CODE(inky$) =@ 
180 PRINT #11, Heberlein Label THEN GO TO 370 
program 03/01/90" 380 IF inky$=='y' THEN CLS #14: 
190 PAUSE 120 repeat_label_ setup: 
200 CLS #11 print_existing_labels: open_14: 
210 DIM m$(500,300) window_14 
220 OPEN #3,ser 390 REMark Start Processing Labels 
230 window_14 400 CLS #14: 
240 PRINT #14, ‘Start New File?'\'Y for 410 PRINT #14, 'If Ready To Start Press 
YES anything else for NO.' Y'\'To quit enter Q (must be cap.)' 


250 _ inky$=INKEY$(@): IF CODE(inky$)=0 


The new Computer Store 
2na 
For Not-So-New 
BYTES 
Computers 


L 


SAVE THE HASSLE. have 2nd BYTES sell your 
" unused " computer, peripherals and software. 
- We are in the Business to sell your computer. 


$ 


SAVE MONEY. buy your computer, peripheral and 
software at 2nd BYTES. 


SAVE TIME. have our professional consultants 
assist you in finding the computer and the programs 
for your needs. 
- We are in the business to help you select an inexpensive 
system. 


X 


WARRANTY. on almost all equipment we sell. 
- We service what we sell. 


774-1155 


9721 W. Greenfield Avenue West Allis WI 53214 


NP NM N N VV VV VV VV VV VV VV VV N NM N N M N Mw N w 
N N PN PN PN PN PN PN PN N PN N PN PN N N PN N PN N N AN N AN N AN N AN 


December 1991 2 SMUG Bytes 


e 
OR OTHERWORDS 
THÈ MEETING 


The December meeting was a very small 
one. Only 6 members showed up but 
since their will not be a January 
meeting I hope the February meeting 
will be better. Also the February 
meeting will be the "Annual Meeting." 
We will have the elections and maybe 
even some new blood. If your not there 
YOU may be elected president. So be 
forewarned and show up. This is your 
official notice of the annual meeting. 


Label Program Cont. 
420 inky$s=INKEY$(0): IF CODE(inky$) =0 
GO TO 420 

430 IF inky$=='y' THEN GO TO 460 

440 IF inky$='Q' THEN GO TO 2540 

450 GO TO 420 

460 AT #11,0,3 

470 m=m+1 

480 PRINT #11, 'FIRST NAME 

490 window_12 

500 INPUT #12,m$(m,19 TO 36) 

510 IF m$(m,19 TO 20)=' ' THEN GO TO 
500 - 


Commodore 
Panasonic 
Amiga 
Brother 
NEC 
Samsung 


Que 
AA 


ELECTRON 


SMUG Bytes 


COMPUTER AND PRINTER REPAIR 
i FACTORY AUTHORIZED SERVICE 


Apple compatibles e IBM compatibles 
@ and other popular brands 


10953 West Mitchell a 


520 CLS #12 

530 PRINT #12,m$(m,19 TO 36): 
20: CLOSE #12 

540 AT #11,0,24 

550 PRINT #11,' 
560 window_13 
570 INPUT #13, 
580 IF m$(m,1 TO 2)»* ' 
570 

590 CLS #13 

600 PRINT #13,m$(m,1 TO 18): 
610 AT #11,5,6 
62@ PRINT #11, 
638 window_14 
640 CLS #14 
650 AT #11,6,10 

660 INPUT #14,m$(m,122 TO 151) 
670 AT #11,6,6 

680 INPUT #11, 'CITY/STATE/ZIP'; 
690 INPUT #14,m$(m,55 TO 


PAUSE 


LAST NAME' 
m$(m,1 TO 18) 
THEN GO TO 
CLOSE #13 


‘STREET ADDRESS ' 


69);'/';m$(m,70 TO 71);'/':m$(m,82 TO 
86); '-';m$(m,87 TO 90) 

700 AT #11,7,15: PRINT #11, 'PHONE' 
710 INPUT #14, 'A/C ';m$(m,72 TO 

74) 3 *=*m$(m.75 TO 77);"=";m$(m,78. TO 
81) 


711 AT #11,8,10 


@ Star Micronics 
e Atari 

è Citizen 

@ C.litoh 

è Silver- Reed 

e Goldstar 


415-1415 


Mon.- Fri. 9-7 
Saturday 12-4 


3 locks south of Green beld Ave. 
and 7 act west ofHWY 100 
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PRESIDENTS PROGRAM 
We have all our 1992 meeting dates 
confirmed. The first Wednesday of each 
month. This year will be the first one 
to have less than 12 meetings in a 
year since we started in '83. Remember 
THERE WILL BE NO JANUARY MEETING. 
Please make note of this on your 
calendar so you are not surprised in 
January. 

Upcoming computer/ham shows: Hamfest 
Sun, 3/22/92, Jefferson County 
Fairgrounds Hwy. 18 West, Jefferson WI 
Bam to 2pm. Computer/Ham Swapfest, 
10/11/92, 8am to ??, Waukesha County 
Expo Center. $4 early $5 at the door. 


Labels Cont. 

712 PRINT #11, "USER GROUP' 

713 INPUT #14,m$(m,92 TO 121) 

720 CLS #14 

739 PRINT #14,m$(m,122 TO 151) 

740 PRINT #14,m$(m,55 TO 

69) ;'/';m$(m,70 TO 71);'/':m$(m,82 TO 


86); "-';m$(m,87 TO 90) 

750 PRINT #14, '1-';m$(m,72 TO 
74);'—';m$(m,75 TO 77);'—';m$(m,78 TO 
81) 


760 PRINT #14,m$(m,92 TO 121) 
779 CLOSE #14: window_15 

780 AT #11,10,15 

790 PRINT #11, ‘Hardware - Enter , 
(comma) Between Each Item.) ' 
800 INPUT #15,m$(m,152 TO 300) 
810 CLS #15 

820 PRINT #15,m$(m,152 TO 300) 
830 CLOSE #15 

832 n=m 

835 print_label 

840 CLOSE #7 

845 open_fle_new 

847 write_bac 

850 REMark PRINT #7,m$(m,1 TO 300) 
860 REMark PRINT m$(m,1 TO 300) 
870 CLOSE #7 

880 open_bac_new 

890 write_bac 

900 CLOSE #7 

910 CLS #11 

920 open_12 

930 open_13 

940 open_14 

950 open_15 

960 window_14 

970 open _disk_update 

980 find_last_entry 

990 GO TO 390 

1000 REMark procedure area 
1010 DEFine PROCedure open_windows 
1020 open_11 f 
1030 open_12 
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CRE peer l41921/2\7TH STREET 
OREGONSCITY, OR 97045 


503-655-7484 2-10 PM PT TUE-SAT 


WE ARE NOV 
THE WORLD'S LARGEST 
T/S DEALER! 

WE WANT TO SERVE YOUR COMPUTER NEEDS 
IM AMY WAY WE CAM. IF YOU WOULO LIKE TO 
RECEIVE OUR CATALOG. JUST SEMO $4 TO THE 
ADORESS ABOVE. YOU WILL RECEIVE OUR GIG 
COMPUTER PRODUCT CATALOG ANO A COUPON 
GOOO FOR $3 OFF YOUR FIRSTSORDER 

SO 
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1049 open_13 


1050 open_14 1340 REMark open disk file update 
1060 open_15 1350 DEFine PROCedure open_disk_update 
1070 RETurn 1360 OPEN #7, 'FLP2_Reservations_Fle' 
1080 END DEFine 1370 RETurn 

1090 DEFine PROCedure open_il 1380 END DEFine 

110909 REMark Full Screen #11 1390 REMark open disk fle NEW 

1110 OPEN #11,scr_512x256a0x0 -` 1400 DEFine PROCedure open_fle_new 
1120 RETurn 1410 OPEN_OVER 

1130 END DEFine #7,f1p2_Reservations_fle 

1140 REMark First Name #12 1420 RETurn 

1150 DEFine PROCedure open_12 1430 END DEFine 

1160 OPEN #12,con_162x22a20x15 1440 REMark open disk bac NEW 

1170 RETurn 1450 DEFine PROCedure open_bac_new 
1180 END DEFine 1460 OPEN_OVER 

1190 REMark Last Name #13 #+7,f1p1_Reservations_bac 

1200 DEFine PROCedure open_13 1470 RETurn 

1210 OPEN #13, con_236x22a219x15 1480 END DEFine 

1220 RETurn 1490 REMark Perform label set up 
1230 END DEFine 1500 DEFine PROCedure 

1240 REMark #14 Address + Phone print_label_setup 

1250 DEFine PROCedure open_14 1510 open_14: window_14: PRINT 
1260 OPEN #14,con_256x52a130x50 #14, When printer ready press g' 
1270 RETurn 1520 x$='' 

1280 END DEFine 1530 x$=INKEY$(@) 

1290 REMark #15 Comments - Open Area 1540 IF x$=='G' THEN GO TO 1560 
1300 DEFine PROCedure open_15 15509 GO TO 1530 

1310 OPEN #15,con_480x102a16x120 1560 CLS #14: CLOSE #14 

1320 RETurn 1570 OPEN #3,ser 


1330 END DEFine 


GK ENTERPRISES 
u >- Your Computer Supply Source 
No need to wait for a sale. 
Our prices are low everyday 
Wide selection of printer ribbons 
AXIOM C. ITOH EPSON OKIDATA 
PANASONIC STAR AND MANY MORE. 
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*SMUG SPECIAL* 
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2700 sheets 9 1/2 x 11 204 Microperf $23.50 


LAZZAZAZAZARZA Ri 


* 546-0111 x 
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8634 W. National Avenue West Allis WI 53227 
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Tne Sinclair Milwaukee Users Group 
| (SMUG ) 


We are a not-for-profit group devoted Newsletter subscription is available 

to serving the interests of those who for only $10 per year to non members 

own, use, and/or are interested in the or free with a club membership. A club 

Timex/Sinclair family of computers. membership is $20 per year for a 
family membership. 

Editor and contact person is: 

Bill Heberlein (414) 527 2191. Advertising cost for 1/2 page ad 
runing for six months is $10. The ad 

SMUG maintains a gratis exchange of copy may be changed each month but you 

newsletters with approximately 3@ must supply the copy. 

Users Groups across the U.S. and 

Canada. Clubs not sending newsletters 

for more than 6 months are removed 

from our mailing list. 


SMUG BYTES FIRST CLASS MAIL 
5052 N. 9lst Street Er Lac. 

Milwaukee WI 53225-4129 LOSE EN ae 
Address Correction Requested . = C PM d S 


NITE-TIMES NEWS 
CATUG Newsletter 
613 Parkside Circle 
Streamwood , IL 


The next meeting of SMUG will be held on: 60107 
Wednesday, December 6,1991 (Merry Christmas) 

6:0@ Set Up 6:30 

7:30 Business Meeting 8:30 

9:00 10:30 Clean Up 
Wednesday, February 5,1991 (Happy New Year) 

6:00 Set Up 6:30 

7:30 Business Meeting 8:30 

9:00 10:30 Clean Up 

Location: 


Equitable Bank, 
145th and Capital Drive, 
Milwaukee WI 


December 1991 6 l SMUG Bytes 


